<script>--KEYBOARD SHORTCUTS TEST v1.3--by David Hundsness--public domainon openstackhide msghide menubarset cantabort of this stack to trueset cantpeek of this stack to trueset cantmodify of this stack to trueset userlevel to 1set textarrows to trueset blindtyping to falsebeginend openstackon backdoorset cantabort of this stack to falseset cantpeek of this stack to falseset cantmodify of this stack to falseset userlevel to 5set blindtyping to trueend backdooron begin xgo cd 1show btn blackouthidefilehideedithide cd fld instrput empty into cd fld textfieldglobal itemlist,starttimeput empty into itemlistput "NNew OOpen WClose SSave PPrint QQuit ZUndo XCut CCopy VPaste ¶Return" into sourcerepeat until source is emptyget random(number of words of source)put word it of source &space before itemlistdelete word it of sourceend repeatif x = empty then answer ¬"Type RETURN to begin the"&return&"Keyboard Shortcut Test." ¬with "Quit" or "Begin"if it is "quit" then domenu "quit hypercard"lock screenshow cd fld instrhide btn blackoutput the ticks into starttimemoveonend beginon returnkeyif msg ≠ empty then pass returnkeycommandkeydown "¶"end returnkeyon enterkeyif msg ≠ empty then pass enterkeycommandkeydown "¶"end enterkeyon commandkeydown xif the userlevel = 5 then pass commandkeydownglobal currentif chartonum(x) = 3 or x = return then put "¶" into xif x = char 1 of current thenplay harpsichord c5do "C"& char 2 to 999 of currentmoveOnelseplay boinghide cd fld instr of cd 1if current ≠ "¶Return" thenget "Sorry. The correct shortcut for"&&char 2 to 999 of current &&"is ⌘-"& char 1 of currentelse get "Sorry. The correct shortcut for an outlined button is Return."answer it with "Quit" or "Try Again"if it is "Try Again" then begin 1else domenu "quit hypercard"end ifend commandkeydownon moveOnglobal itemlist, current,starttimeif itemlist ≠ empty thenput word 1 of itemlist into currentdelete word 1 of itemlistdo "O"& char 2 to 999 of currentelse --graduatehide cd fld instrset numberformat to 0.0answer "Done! Your time was"&& ¬(the ticks - starttime)/60 ¬&& "seconds." with "Quit" or "Try Again"if it is "Try Again" then begin 1else domenu "quit hypercard"end ifend moveOnon Onewif visible of btn untitled thenshow btn blackouthide btn untitledhide cd fld textfieldhide cd picthide btn blackoutend ifshowFileshow btn "fileHiliter" at 89,28end Onewon Cnewlock screenhide btn documentshow cd pictshow btn untitledhideFileunlock screen with zoom openend Cnewon Oopenif visible of btn document thenshow btn blackouthide btn documenthide cd fld textfieldhide cd picthide btn blackoutend ifshowFileshow btn "fileHiliter" at 89,44end Oopenon Copenlock screenhide btn untitledshow cd pictshow btn documenthideFileunlock screen with zoom openend Copenon Ocloseif not the showpict of this cd thenshow btn blackoutshow cd pictshow btn documenthide btn blackoutend ifshowFileshow btn "fileHiliter" at 89,60end Ocloseon Ccloselock screenhide btn untitledhide btn documenthide btn untitledhide cd fld textfieldhide cd picthideFileunlock screen with zoom closeend Ccloseon Osaveif not the showpict of this cd thenshow btn blackoutshow cd pictshow btn documenthide btn blackoutend ifshowFileshow btn "fileHiliter" at 89,76end Osaveon CsavehideFileend Csaveon Oprintif not the showpict of this cd thenshow btn blackoutshow cd pictshow btn documenthide btn blackoutend ifshowFileshow btn "fileHiliter" at 89,108end Oprinton CprinthideFileend Cprinton OquitshowFileshow btn "fileHiliter" at 89,140end Oquiton Cquitshow btn blackouthideFilehide btn blackoutend Cquiton Oundoif not the showpict of this cd thenshow btn blackoutshow cd pictshow btn documenthide btn blackoutend ifput "Undo this typing." into cd fld textfieldshow cd fld textfieldshowEditshow btn "edithiliter" at 125,28unlock screenselect after text of cd fld textfieldend Oundoon CundohideEditput empty into cd fld textfieldend Cundoon Ocutif not the showpict of this cd thenshow btn blackoutshow cd pictshow btn documenthide btn blackoutend ifput "Cut this last word. " into cd fld textfieldshow cd fld textfieldshowEditshow btn "edithiliter" at 125,60unlock screenselect last word of cd fld textfieldend Ocuton CcuthideEditput "Cut this last" into cd fld textfieldend Ccuton Ocopyif not the showpict of this cd thenshow btn blackoutshow cd pictshow btn documenthide btn blackoutend ifput "Copy this last word. " into cd fld textfieldshow cd fld textfieldshowEditshow btn "edithiliter" at 125,76unlock screenselect last word of cd fld textfieldend Ocopyon CcopyhideEditselect last word of cd fld textfieldend Ccopyon Opasteif not the showpict of this cd thenshow btn blackoutshow cd pictshow btn documenthide btn blackoutend ifput "Paste the last " into cd fld textfieldshow cd fld textfieldshowEditshow btn "edithiliter" at 125,92unlock screenselect after text of cd fld textfieldend Opasteon CpastehideEditput "Paste the last word." into cd fld textfieldend Cpasteon Oreturngo cd 2end Oreturnon Creturnset hilite of btn hiliter to truewait 20 ticksset hilite of btn hiliter to falsego cd 1end Creturnon showFileshow btn "file"show cd fld "fileMenu"show btn "fileShadow"end showFileon hideFilehide btn "fileHiliter"hide btn "fileShadow"hide cd fld "fileMenu"hide btn "file"end hideFileon showEditshow btn "edit"show cd fld "editMenu"show btn "editShadow"end showEditon hideEdithide btn "editHiliter"hide btn "editShadow"hide cd fld "editMenu"hide btn "edit"end hideEdit</script>
